home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / IndexedAdaptor.p < prev    next >
Text File  |  2004-01-31  |  2KB  |  50 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " printOn: " \
  3.   #( #[ 16r21 16r20 16rA4 16r81 16r00 16rF2 16r21 16r31 16r81 16r02 16rF2 \
  4.         16r20 16r80 16r03 16r21 16r81 16r04 16rF2 16r21 16r80 16r05 \
  5.         16rF2 16r20 16r21 16r81 16r06 16rF2 16r21 16r10 16rA9 16r81 \
  6.         16r07 16rF2 16r21 16r38 16r81 16r02 16rF2 16rF5] \
  7.     #( #print: $( #nextPut: #target #printOn: #space #printPathOn: \
  8.         #nextPutAll: $)  )) >
  9.  
  10. <primitive 112 pTempVar 2  " update:with:from: " \
  11.   #( #[ 16r23 16r20 16r90 16r00 16rB6 16rF7 16r14 16r21 16r31 16rB6 16rFC \
  12.         16r03 16r22 16r10 16rC9 16rF7 16r08 16r20 16r90 16r02 16r33 \
  13.         16r5D 16r20 16r83 16r04 16rF8 16r07 16rF2 16r20 16r21 16r22 \
  14.         16r23 16r93 16r04 16rF2 16rF5] \
  15.     #( #subject #at: #dependents #value #update:with:from:  )) >
  16.  
  17. <primitive 112 pTempVar 3  " valueUsingTarget: " \
  18.   #( #[ 16r21 16r5D 16rB6 16rF6 16r06 16r21 16r10 16rB1 16rF3 16rF8 16r03 \
  19.         16rF2 16r5D 16rF3 16rF2 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 4  " setValueUsingTarget:to: " \
  23.   #( #[ 16r21 16r5D 16rB6 16rF6 16r04 16r21 16r10 16r22 16rD0 16rF2 16rF5 \
  24.        ] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 5  " setIndex: " \
  28.   #( #[ 16r21 16r60 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 6  " forIndex " \
  32.   #( #[ 16r10 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 7  " forIndex:accessPath: " \
  36.   #( #[ 16r20 16r22 16r81 16r00 16r21 16r81 16r01 16rF3 16rF5] \
  37.     #( #accessPath: #forIndex:  )) >
  38.  
  39. <primitive 112 pTempVar 8  " forIndex: " \
  40.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF3 16rF5] \
  41.     #( #setIndex:  )) >
  42.  
  43. <primitive 98 #IndexedAdaptor \
  44.   <primitive 97 #IndexedAdaptor #ProtocolAdaptor #AmigaTalk:General/IndexedAdaptor.st \
  45.    #(  #index ) \
  46.    #( #printOn: #update:with:from: #valueUsingTarget:  \
  47.        #setValueUsingTarget:to: #setIndex: #forIndex #forIndex:accessPath: #forIndex:  ) \
  48.   pTempVar 4 10 > #ordinary >
  49.  
  50.